home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / MAKE.TEXT.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  813 b   |  27 lines
  1. 10  DIM A$(100): REM  100 LINES MAX
  2. 20 D$ =  CHR$(4): REM  CONTROL-D
  3. 30 R$ =  CHR$(13): REM  CARRIAGE RETURN
  4. 40  TEXT : HOME 
  5. 50  PRINT "          TEXT FILE CREATOR"
  6. 60  INVERSE : PRINT "TO ADD A LINE:"
  7. 70  NORMAL : PRINT "    ENTER CHARACTERS, AND PRESS RETURN"
  8. 80  INVERSE : PRINT "TO END:"
  9. 90  NORMAL : PRINT "    PRESS RETURN ON AN EMPTY LINE"
  10. 100  PRINT : POKE 34,6: REM  SET WINDOW
  11. 110 I = I +1: PRINT I;": ";
  12. 120  GOSUB 1000
  13. 130  IF A$(I) < >"" GOTO 110
  14. 140  PRINT D$;"PREFIX /EXAMPLES/DATA"
  15. 150  INPUT "SAVE TO WHAT FILE? ";N$
  16. 160  IF  LEN(N$) = 0  THEN  GOTO 230
  17. 170  PRINT D$;"OPEN ";N$
  18. 180  PRINT D$;"WRITE ";N$
  19. 190  FOR J = 1 TO I -1
  20. 200 : PRINT A$(J)
  21. 210  NEXT J
  22. 220  PRINT D$;"CLOSE ";N$
  23. 230  TEXT : END 
  24. 1000  GET C$: PRINT C$;
  25. 1010  IF C$ = R$  THEN  RETURN 
  26. 1020 A$(I) = A$(I) +C$
  27. 1030  GOTO 1000